The Trig Explorer/The Trig Explorer.iso/mac/Explorer/Ex_Right.dxr/00032.ls

Text File | 1998-07-22 | 236 b | 10 lines

on enterFrame
  global a, b, c
  put a * a into field "A2"
  put b * b into field "B2"
  put (a * a) + (b * b) into field "C2"
  set the floatPrecision to 2
  set c to float(sqrt(float(a * a) + float(b * b)))
  put c into field "C"
end